home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK programs / $Uppercase < prev    next >
Encoding:
Text File  |  1993-05-11  |  298 b   |  16 lines  |  [TEXT/KEEN]
  1. #Change first letter of each word (field) to uppercase
  2. BEGIN {u = "abcdefghijklmnopqrstuvwxyz"
  3.     U = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  4.     }
  5.     
  6.     {for ( k = 1; k <= NF; k++)
  7.           {
  8.         first = substr($k,1,1)
  9.         if (ind = index(u,first))
  10.             {
  11.             First = substr(U, ind, 1)
  12.             sub(/^./, First, $k)
  13.             }
  14.         }
  15.     print
  16.     }